10 CLR:POKE53280,6:POKE53281,0:PRINTCHR$(147);:
20 PRINT"[147][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]";
30 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
40 PRINT"[221] [154]                                     [221]";
50 PRINT"[221]  >     FILE-PARAMETER ANZEIGEN    <  [221]";
60 PRINT"[221] [154]                                     [221]";
70 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";:
80 PRINT"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]";:PRINT:PRINT
90 FL=0
100 POKE19,1:INPUT" FILE-NAME:       [158]";D$:POKE19,0
105 IFD$="E"THENPRINT"":END
110 IFLEN(D$)<=16THEN130
120 PRINT:PRINT"[147]  FILENAME ZU LANG!":FORZ=1TO1250:NEXT:PRINT"[147]":GOTO100
130 OPEN15,8,15,"IO":OPEN2,8,2,"#"
140 T=18:S=1
150 PRINT#15,"U1";2;0;T;S
160 PRINT#15,"B-P";2;0
170 GET#2,A$:IFA$=""THENA$=CHR$(0)
180 T=ASC(A$)
190 GET#2,A$:IFA$=""THENA$=CHR$(0)
200 S=ASC(A$)
210 FORX=0TO7
220 PRINT#15,"B-P";2;X*32+5
230 DN$=""
240 FORY=0TO15
250 GET#2,A$:IFA$=""THENA$=CHR$(0)
260 IFASC(A$)=160THEN290
270 DN$=DN$+A$
280 NEXTY
290 IFD$=DN$THEN370
300 IFFLTHENPRINTDN$
310 NEXTX
320 IFT=0THEN340
330 GOTO150
340 CLOSE2:CLOSE15
350 IFFL=0THENPRINT"[147][151][146] DAS FILE    [152]";CHR$(34);D$;CHR$(34);"
360 [153]"POKEWAIT WURDE NICHT GEFUNDEN!POKE":[129]Z[178]1[164]1500:[130]:[153]"LOAD":[137]100
370 [139]FL[167][142]
380 [152]15,"B-P";2;X[172]32[170]2
390 [161]#2,A$:[139]A$[178]""[167]A$[178][199](0)
400 DY[178][198](A$)
410 FD[178]DY[175]15
420 [139]FD[178]0[167]DN$"=GELOESCHT"
430 [139]FD[178]1[167]DN$[178]"SEQ.-FILE"
440 [139]FD[178]2[167]DN$[178]"PRG.-FILE"
450 [139]FD[178]3[167]DN$[178]"USER-FILE"
460 [139]FD[178]4[167]DN$[178]"REL.-FILE"
470 [139]FD[177]4[167][153]"POKE FILETYP UNGUELTIG!":[128]
480 [139]DY[175]128[167]CE$[178]"JA":[137]500
490 CE$[178]"NEIN"
500 [139]TY[175]64[167]A$[178]JA":GOTO640
510 LA$="NEIN"
520 PRINT#15,"B-P";2,X*32+30
530 GET#2,A$:IFA$=""THENA$=CHR$(0)
540 LB=ASC(A$)
550 GET#2,A$:IFA$=""THENA$=CHR$(0)
560 HB=ASC(A$)*256
570 BL=LB+HB
580 IFFD<>4THEN620
590 PRINT#15,"B-P";2;X*32+23
600 GET#2,A$:IFA$=""THENA$=CHR$(0)
610 RL=ASC(A$)
620 IFFD<>2THEN770
630 PRINT#15,"B-P";2;X*32+3
640 GET#2,A$:IFA$=""THENA$=CHR$(0)
650 TR=ASC(A$)
660 GET#2,A$:IFA$=""THENA$=CHR$(0)
670 SE=ASC(A$)
680 OPEN3,8,3,"#"
690 PRINT#15,"U1";3;0;TR;SE
700 PRINT#15,"B-P";3;2
710 GET#3,A$:IFA$=""THENA$=CHR$(0)
720 LB=ASC(A$)
730 GET#3,A$:IFA$=""THENA$=CHR$(0)
740 HB=ASC(A$)*256
750 AA=LB+HB
760 CLOSE3
770 PRINT#15,"U1";2;0;18;0
780 BF=0
790 FORI=4TO140STEP4
800 IFI=72THEN840
810 PRINT#15,"B-P";2;I
820 GET#2,A$:IFA$=""THENA$=CHR$(0)
830 BF=ASC(A$)+BF
840 NEXT
850 BB=664-BF
860 IFFT<>4THEN900
870 BS=BL/121:IFBS=<>INT(BS)THENBS=INT(BS+1)
880 RC=INT((BL-BS)*254/RL)
890 PRINT:PRINT" [151]FILE ";CHR$(34);D$;CHR$(34);" [146]GEFUNDEN -":
900 PRINTCHR$(147)"[151] FILE ";CHR$(34);D$;CHR$(34);"[146][151] GEFUNDEN -":
910 PRINT" AUSGABE AUF B[146]ILDSCHIRM ODER D[146]RUCKER";
920 GETA$:IFA$=""ORA$<>"B"ANDA$<>"D"THEN920
930 RE$=CHR$(18):RA$=CHR$(146)
940 IFA$="B"THENOPEN1,3:PRINT#1,CHR$(147)
950 IFA$="D"THENOPEN1,4
960 PRINT#1,"PARAMETER DES FILES    "CHR$(34);D$;CHR$(34)
970 PRINT#1,"[151]---------------------------------------"
980 PRINT#1,"[151]FILETYP:                     [152]";DN$;RA$:PRINT#1
990 PRINT#1,"[151]FILE GESCHLOSSEN:            [152]";CE$;RA$:PRINT#1
1000 PRINT#1,"[151]FILE GESCHUETZT:             [152]";LA$;RA$:PRINT#1
1010 PRINT#1,"[151]BELEGTE BLOECKE:            [152]";BL;RA$:PRINT#1
1020 IFFD<>4THEN1070
1030 PRINT#1,"[151]RECORDLAENGE:              [152]";RL;RA$:PRINT#1
1040 PRINT#1,"[151]SIDE-SIDE BLOECKE:         [152]";BS;RA$:PRINT#1
1050 PRINT#1,"[151]DATENBLOECKE:               [152]";BL-BS;RA$:PRINT#1
1060 PRINT#1,"[151]RECORDS:                    [152]";RC;RA$:PRINT#1
1070 IFFD=2THEN PRINT#1,"[151]ANFANGSADRESSE:             [152]";AA;RA$:PRINT#1
1080 PRINT#1,"[151]FREIE BLOECKE (DISK):       [152]";BF;RA$:PRINT#1
1090 PRINT#1,"[151]BELEGTE BLOECKE (DISK):     [152]";BB;RA$:PRINT#1
1100 CLOSE1
1110 PRINT:PRINT" NOCH EIN FILE?             <J/N>"
1120 CLOSE2:CLOSE15
1130 GETA$:IFA$=""ORA$<>"J"ANDA$<>"N"THEN1130
1140 IFA$="J"THENRUN